home *** CD-ROM | disk | FTP | other *** search
/ Hyper Stacks 1994 May / Hyper Stacks (Pacific HiTech)(1994)[Mac].iso / MacTools / Data Transfer / Program Import⁄Exports / Program Import_Exports / background_2749.txt < prev    next >
Encoding:
Text File  |  1994-05-18  |  6.0 KB  |  260 lines
  1. -- background: 2749 from stack: in
  2. -- bmap block id: 3226
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: foo
  6. ----- HyperTalk script -----
  7. on openCard
  8.   hide message box
  9.   show menuBar
  10.   pass openCard
  11. end openCard
  12.  
  13. on newcard
  14.   set lockscreen to true
  15.   push card
  16.   go to prev card
  17.   put bg field "title-import" into import
  18.   put bg field "title-export" into export
  19.   put bg field "title-problem" into problem
  20.   pop card
  21.   put import into bg field "title-import"
  22.   put export into bg field "title-export"
  23.   put problem into bg field "title-problem"
  24.  
  25.   -- Add default text information
  26.   put ", Version: " & return & "Operating System:" into bg field "title"
  27.   put "Graphics:" & return & "Word Processing:" & return into bg field "Import"
  28.   put "Graphics:" & return & "Word Processing:" & return into bg field "Export"
  29.   set lockscreen to false
  30. end newcard
  31.  
  32.  
  33.  
  34. -- part 21 (field)
  35. -- low flags: 00
  36. -- high flags: 0000
  37. -- rect: left=0 top=6 right=57 bottom=512
  38. -- title width / last selected line: 0
  39. -- icon id / first selected line: 0 / 0
  40. -- text alignment: 1
  41. -- font id: 16
  42. -- text size: 18
  43. -- style flags: 0
  44. -- line height: 24
  45. -- part name: title
  46.  
  47.  
  48. -- part 22 (field)
  49. -- low flags: 00
  50. -- high flags: 0007
  51. -- rect: left=39 top=74 right=144 bottom=504
  52. -- title width / last selected line: 0
  53. -- icon id / first selected line: 0 / 0
  54. -- text alignment: 0
  55. -- font id: 16
  56. -- text size: 14
  57. -- style flags: 0
  58. -- line height: 17
  59. -- part name: Import
  60. ----- HyperTalk script -----
  61. on mouseUp
  62.   get the clickLoc
  63.   put 1 + ( (clickV()-((top of me)+1)) div (textHeight of me) ) into k
  64.   -- ask k && line k of me
  65.   if line k of me is not empty then
  66.     -- get (textHeight of me * (k-1)) + ((top of me)+1)
  67.     -- set top of cd btn hiliter to it
  68.     --  set hilite of cd btn "hiliter" to true
  69.     --  show cd btn "hiliter"
  70.     get first word of line k of me
  71.     if  it = "‚Ä¢" then
  72.       get second word of line k of me
  73.     end if
  74.     visual effect  dissolve
  75.     go to card it
  76.   end if
  77. end mouseUp
  78.  
  79.  
  80. -- part 23 (button)
  81. -- low flags: 00
  82. -- high flags: 3000
  83. -- rect: left=40 top=315 right=342 bottom=69
  84. -- title width / last selected line: 0
  85. -- icon id / first selected line: 30557 / 30557
  86. -- text alignment: 1
  87. -- font id: 0
  88. -- text size: 12
  89. -- style flags: 0
  90. -- line height: 16
  91. -- part name: first card
  92. ----- HyperTalk script -----
  93. on mouseUp
  94.   go to card "Main Topics"
  95.  
  96. end mouseUp
  97.  
  98.  
  99. -- part 24 (button)
  100. -- low flags: 00
  101. -- high flags: 0000
  102. -- rect: left=245 top=316 right=341 bottom=277
  103. -- title width / last selected line: 0
  104. -- icon id / first selected line: 1013 / 1013
  105. -- text alignment: 1
  106. -- font id: 0
  107. -- text size: 12
  108. -- style flags: 0
  109. -- line height: 16
  110. -- part name: 
  111. ----- HyperTalk script -----
  112. on mouseUp
  113.   visual effect wipe left slow
  114.   go to next card
  115. end mouseUp
  116.  
  117.  
  118. -- part 25 (button)
  119. -- low flags: 00
  120. -- high flags: 0000
  121. -- rect: left=213 top=316 right=341 bottom=245
  122. -- title width / last selected line: 0
  123. -- icon id / first selected line: 1014 / 1014
  124. -- text alignment: 1
  125. -- font id: 0
  126. -- text size: 12
  127. -- style flags: 0
  128. -- line height: 16
  129. -- part name: 
  130. ----- HyperTalk script -----
  131. on mouseUp
  132.   visual effect scroll right slow
  133.   go to prev card
  134. end mouseUp
  135.  
  136.  
  137. -- part 26 (field)
  138. -- low flags: 01
  139. -- high flags: 0004
  140. -- rect: left=0 top=54 right=73 bottom=143
  141. -- title width / last selected line: 0
  142. -- icon id / first selected line: 0 / 0
  143. -- text alignment: 0
  144. -- font id: 13622
  145. -- text size: 12
  146. -- style flags: 256
  147. -- line height: 16
  148. -- part name: title-import
  149.  
  150.  
  151. -- part 28 (field)
  152. -- low flags: 01
  153. -- high flags: 0004
  154. -- rect: left=0 top=146 right=165 bottom=137
  155. -- title width / last selected line: 0
  156. -- icon id / first selected line: 0 / 0
  157. -- text alignment: 0
  158. -- font id: 13622
  159. -- text size: 12
  160. -- style flags: 256
  161. -- line height: 16
  162. -- part name: title-export
  163.  
  164.  
  165. -- part 29 (field)
  166. -- low flags: 00
  167. -- high flags: 0007
  168. -- rect: left=40 top=166 right=235 bottom=505
  169. -- title width / last selected line: 0
  170. -- icon id / first selected line: 0 / 0
  171. -- text alignment: 0
  172. -- font id: 16
  173. -- text size: 14
  174. -- style flags: 0
  175. -- line height: 17
  176. -- part name: Export
  177. ----- HyperTalk script -----
  178. on mouseUp
  179.   get the clickLoc
  180.   put 1 + ( (clickV()-((top of me)+1)) div (textHeight of me) ) into k
  181.   -- ask k && line k of me
  182.   if line k of me is not empty then
  183.     -- get (textHeight of me * (k-1)) + ((top of me)+1)
  184.     -- set top of cd btn hiliter to it
  185.     --  set hilite of cd btn "hiliter" to true
  186.     --  show cd btn "hiliter"
  187.     get first word of line k of me
  188.     if  it = "‚Ä¢" then
  189.       get second word of line k of me
  190.     end if
  191.     visual effect  dissolve
  192.     go to card it
  193.   end if
  194. end mouseUp
  195.  
  196.  
  197. -- part 30 (field)
  198. -- low flags: 00
  199. -- high flags: 0007
  200. -- rect: left=39 top=260 right=315 bottom=505
  201. -- title width / last selected line: 0
  202. -- icon id / first selected line: 0 / 0
  203. -- text alignment: 0
  204. -- font id: 16
  205. -- text size: 14
  206. -- style flags: 0
  207. -- line height: 17
  208. -- part name: Problems
  209. ----- HyperTalk script -----
  210. on mouseUp
  211.   get the clickLoc
  212.   put 1 + ( (clickV()-((top of me)+1)) div (textHeight of me) ) into k
  213.   -- ask k && line k of me
  214.   if line k of me is not empty then
  215.     -- get (textHeight of me * (k-1)) + ((top of me)+1)
  216.     -- set top of cd btn hiliter to it
  217.     --  set hilite of cd btn "hiliter" to true
  218.     --  show cd btn "hiliter"
  219.     get first word of line k of me
  220.     if  it = "‚Ä¢" then
  221.       get second word of line k of me
  222.     end if
  223.     visual effect  dissolve
  224.     go to card it
  225.   end if
  226. end mouseUp
  227.  
  228.  
  229. -- part 31 (field)
  230. -- low flags: 01
  231. -- high flags: 0004
  232. -- rect: left=0 top=239 right=258 bottom=372
  233. -- title width / last selected line: 0
  234. -- icon id / first selected line: 0 / 0
  235. -- text alignment: 0
  236. -- font id: 13622
  237. -- text size: 12
  238. -- style flags: 256
  239. -- line height: 16
  240. -- part name: title-problem
  241.  
  242.  
  243. -- part 32 (button)
  244. -- low flags: 00
  245. -- high flags: 0000
  246. -- rect: left=245 top=316 right=341 bottom=277
  247. -- title width / last selected line: 0
  248. -- icon id / first selected line: 1013 / 1013
  249. -- text alignment: 1
  250. -- font id: 0
  251. -- text size: 12
  252. -- style flags: 0
  253. -- line height: 16
  254. -- part name: 
  255. ----- HyperTalk script -----
  256. on mouseUp
  257.   visual effect wipe left slow
  258.   go to next card
  259. end mouseUp
  260.